home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / list-me vic 2.l (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  135 lines
  1. 0 GOSUB 9000
  2. 1 END
  3. 4 REM
  4. 5 REM LOCATION $D011 - 27 NORMAL
  5. 6 REM VARIOUS CONTROL BITS
  6. 7 REM
  7. 19 REM
  8. 20 FORJ=31TO24STEP-1:POKE53265,J:FORA=1TO500:NEXTA,J:REM SCROLL SCREEN VERTICALLY
  9. 30 POKE53265,27-8:   REM NARROW HEIGHT
  10. 40 POKE53265,27-16:  REM BLANK THE                           SCREEN
  11. 45 POKE53265,27+32:  REM SWITCH TO                           HIRES MODE
  12. 50 POKE53265,27+64:  REM EXTENDED COLOR                      MODE
  13. 59 REM
  14. 60 REM
  15. 61 REM LOCATION $D016 - 8 NORMAL
  16. 62 REM VARIOUS CONTROL BITS
  17. 63 REM
  18. 70 FORJ=8TO8+7 :POKE53270,J:FORA=1TO600:NEXTA,J:           REM HORIZONTAL SCROLL
  19. 80 POKE53270,8-0:  REM NARROW WIDTH
  20. 90 POKE53270,8+16 :REM SET MULTICOLOR MODE
  21. 100 POKE53270,8+32:POKE53270,8:REM RESET VIC CHIP. BOTH POKES REQUIRED.
  22. 109 REM
  23. 110 REM
  24. 111 REM LOCATION $D018 - 21 NORMAL
  25. 112 REM SCREEN, CHARACTER SET LOCATIONS
  26. 113 REM
  27. 114 REM
  28. 120 REM 4,5,6,7 BITS DETERMINE WHICH 1K         BLOCK IS SCREEN
  29. 130 REM 1,2,3 BITS DETERMINE WHICH 2K           BLOCK IS CHARACTER SET
  30. 140 REM IN HIRES MODE LOCATION OF BITMAP        IS DETERMINED BY BIT 3
  31. 150 REM BIT3 SET =BITMAP OF TOP 8K BLOCK           CLEAR =OF BOTTOM 8K BLOCK
  32. 152 REM
  33. 153 REM
  34. 154 REM LOCATION $D012 & 7BIT $D011 - READING WHICH SCREEN LINE IS BEING SCANNED
  35. 155 REM WRITING A VALUE MEANS INTERRUPT         AT SCAN LINE
  36. 156 REM
  37. 157 REM
  38. 160 REM $D013 X-LIGHT PEN POSITION
  39. 170 REM $D014 Y-LIGHT PEN POSITION
  40. 180 REM CAPABLE OF INTERRUPTING PROCESSOR
  41. 190 REM
  42. 200 REM
  43. 210 REM $D01A - INTERRUPT ENABLE
  44. 211 REM BIT0 - RASTER INT. ENABLE
  45. 212 REM BIT1 - INTERRUPT ON SPRITE-BACK-               GROUND COLLISION
  46. 213 REM BIT1 - INTERRUPT ON SPRITE-                    SPRITE COLLISION
  47. 214 REM BIT3 - ENABLE LIGHT PEN                        INTERRUPT
  48. 215 REM
  49. 216 REM
  50. 217 REM $D019 -INTERRUPT FLAG REGISTER
  51. 218 REM THE INDICATED BIT IS SET ON             INDICATED EVENT
  52. 219 REM THE PROCESSOR WILL BE               INTERRUPTED IF ONE OF ABOVE BITS SET
  53. 221 REM BIT0 - RASTER MATCHES PRESET                   VALUE
  54. 222 REM BIT1 - SPRITE-SCREEN COLLISION                 HAS OCCURRED
  55. 223 REM BIT2 - SPRITE-SPRITE COLLISION                 HAS OCCURRED
  56. 224 REM BIT3 - SIGNAL FROM LIGHT PEN,               LOCATION OF PEN IN REGISTERS
  57. 225 REM TURN OFF FLAG BY SETTING BIT            (VERY STRANGE)
  58. 228 REM
  59. 229 REM
  60. 230 REM LOCATIONS $D020 TO $D026 - SET          COLOR PARAMETERS
  61. 231 REM 4 LOW BITS ONLY ARE SIGNIFIGANT
  62. 232 REM $D020 - BORDER                          $D021 - SCREEN
  63. 233 REM $D022 - MULTICOLOR1                     $D023 - MULTICOLOR2
  64. 234 REM $D024 - MULTICOLOR3                     $D025 - SPRITE MULTICOLOR1
  65. 235 REM $D026 - SPRITE MULTICOLOR2
  66. 240 REM
  67. 241 REM
  68. 250 REM LOCATION (LAST BYTE OF SCREEN +8)
  69. 251 REM NORMAL $07F8 TO $07FF
  70. 252 REM DETERMINES MEMORY BLOCK WHICH IS USED BY VIC2 CHIP TO DRAW SPRITES 0-7
  71. 253 REM THERE ARE 256 64-BYTE BLOCKS IN         16K VIDEO MEMORY
  72. 254 REM
  73. 260 REM
  74. 261 REM LOCATION $D015 - SPRITE ENABLE                           REGISTER
  75. 262 REM BIT0 - ENABLE SPRITE 0                  BIT1 - ENABLE SPRITE 1
  76. 263 REM ETC.                                    BIT7 - ENABLE SPRITE 7
  77. 264 REM
  78. 265 REM
  79. 270 REM LOCATION $D017 - SPRITE Y-EXPAND
  80. 271 REM BIT0 SET - DOUBLE SPRITE0 WIDTH         BIT1 SET - DOUBLE SPRITE1 WIDTH
  81. 272 REM ETC.
  82. 279 REM
  83. 280 REM
  84. 290 REM LOCATION $D01D -SPRITE X-EXPAND
  85. 291 REM BIT0 SET - DOUBLE SPRITE0 HEIGHT        BIT1 SET - DOUBLE SPRITE1 HEIGHT
  86. 292 REM ETC.
  87. 297 REM
  88. 298 REM
  89. 299 REM $D000 TO $D010 - PUT SPRITE AT          DESIRED POSITION
  90. 300 REM LOCATION $D000 -SPRITE0 X-POS.                   $D001 -SPRITE0 Y-POS.
  91. 302 REM $D002 - SPRITE1 X-POSITION              $D003 - SPRITE1 Y-POSITION
  92. 303 REM ETC.
  93. 304 REM $D00E - SPRITE7 X-POSITION              $D00F - SPRITE7 Y-POSITION
  94. 306 REM
  95. 309 REM
  96. 320 REM $D010 - HIGHBIT OF X-POSITION
  97. 321 REM         SCREEN IS 320 BITS WIDE                 AND 9 BITS ARE REQUIRED
  98. 325 REM
  99. 326 REM
  100. 330 REM $D01B - SPRITE OR BACKGROUND                    PRIORITY
  101. 331 REM BIT0 SET - SPRITE0 WILL PASS                       BEHIND CHARACTERS
  102. 332 REM BIT0 CLR - WILL PASS OVER                          CHARACTERS
  103. 333 REM ETC.
  104. 337 REM
  105. 340 REM
  106. 341 REM $D027 TO $D02E - SELECT SPRITE                           COLORS
  107. 342 REM $D027 - SELECT(0-15) SPRITE0                    COLOR
  108. 343 REM $D028 - SELECT(0-15) SPRITE1                    COLOR
  109. 344 REM ETC.
  110. 345 REM
  111. 349 REM
  112. 350 REM $D01C - MAKE SPRITE APPEAR IN                   MULTICOLOR MODE
  113. 351 REM       - COLORS IN $D025,$D026,                  ONE OF $D027-$D02E
  114. 352 REM BIT0 SET - SPRITE0 IN MULTICOLOR        BIT1 SET - SPRITE1 IN MULTICOLOR
  115. 354 REM ETC.
  116. 359 REM
  117. 360 REM
  118. 370 REM $D01E - TELLS WHICH SPRITES HAVE                COLLIDED (IF ANY)
  119. 371 REM BIT0 SET - SPRITE0 HAS COLLIDED                    WITH ANOTHER SPRITE
  120. 373 REM BIT1 SET - SPRITE1 HAS COLLIDED                    WITH ANOTHER SPRITE
  121. 375 REM ETC.
  122. 377 REM
  123. 378 REM
  124. 380 REM $D01F -TELLS WHICH SPRITES HAVE                COLLIDED WITH BACKGROUND
  125. 381 REM       - IF ANY
  126. 383 REM BIT0 SET - SPRITE0 HAS COLLIDED                    WITH BACKGROUND
  127. 385 REM ETC.
  128. 390 REM
  129. 400 REM
  130. 1000 POKE53265,27:REM RESTORE NORMAL                          SCREEN
  131. 1010 POKE53270,8 :END
  132. 9000 PRINTCHR$(14)"[147][212]HIS IS NOT A PROGRAM. [204]IST TO RECEIVE
  133. 9010 [153]"INFORMATION ABOUT THE C-64'S VIDEO CHIP.
  134. 9020 RETURN
  135.